home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / SHOWBOX.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  1.8 KB  |  28 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 5"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13)
  2. 10  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:COLOR 7,0:KEY OFF
  3. 18  COLOR 3,0
  4. 20  LOCATE 1,3:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  5. 23  PRINT"  OPEN                         YOU CAN PRINT LINES HERE                        OPEN"
  6. 24  FOR I = 3 TO 9:LOCATE I,3:PRINT "OPEN":LOCATE I,77:PRINT"OPEN":NEXT
  7. 36  LOCATE 10,3:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  8. 38  COLOR 7,0:LOCATE 5,23:PRINT"**** See Text in Program listing ***"
  9. 40  LOCATE 7,33:PRINT"S T A N D    B Y "
  10. 42  ' This can be used to start any program or MERGED into any subroutine.
  11. 44  ' The box can be expanded by simply renumbering and typing in a new number
  12. 46  ' for range of the PRINT LOOP, and renumbering the locate line for the
  13. 48  ' bottom and/or top line to move the box up and down the screen.
  14. 52  '* * * * * * * * * * * * * NOTE   NOTE   NOTE * * * * * * * * * * * * * * *
  15. 54  ' You may PRINT WITHIN THE BOX by eliminating LOOP LINE 24.  Then inserting
  16. 56  ' any number of the lines printed out by line 23. This is a slower listing.
  17. 58  ' Or, you may print the box, then words inside by using LOCATE statements.
  18. 60  ' The later method would be appropriate if you were programming in color
  19. 62  ' and wanted the box and printing to be different colors without too many
  20. 64  ' color statements.                           Ver 5.1/160 and Ver 5.2/320
  21. 65  '********* <F2> to RUN again ******** <F10> for BLUEMENU  **********
  22. 66  FOR I=1 TO 4000:NEXT
  23. 68  CLS:LIST 42-65
  24. 69  END
  25. 200  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  26. 65000  REM ********************* SAVE ROUTINE ********************************
  27. 65100  SAVE"B:SHOWBOX.BAS"
  28.